home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / programs / lotus / lotus001.dsk / MACROS / FONTUP.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  4.6 KB  |  403 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     æIæ≡é╡é╜ò╢ÄÜé╠╗▓╜▐é≡æσé½é¡é╖éΘ
  28.     Lotus WPD Marketing
  29.     Intermediate
  30.     FontChange, GetCurFontInfo
  31.     noautorun
  32.     775427680
  33.     30
  34.     670617369
  35.     418
  36.     1
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [ParaNum]
  63.     1
  64. [tag]
  65.     ▒│─╫▓▌1
  66.     6
  67.     [fnt]
  68.         û╛Æ⌐
  69.         200
  70.         0
  71.         32768
  72.     [algn]
  73.         1
  74.         2
  75.         0
  76.         0
  77.         0
  78.     [spc]
  79.         17
  80.         204
  81.         2
  82.         0
  83.         0
  84.         2
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         2
  92.         0
  93.         1
  94.         1
  95.         1
  96.         15
  97.         15
  98.         2
  99.     [spec]
  100.         0
  101.         1
  102.         
  103.         0
  104.         2
  105.         1
  106.         0
  107.         0
  108.         0
  109.         1
  110.     [nfmt]
  111.         280
  112.         1
  113.         2
  114.         .
  115.         ,
  116.         \
  117.     ▒│─╫▓▌1
  118.     0
  119.     0
  120. [tag]
  121.     ▒│─╫▓▌2
  122.     7
  123.     [fnt]
  124.         û╛Æ⌐
  125.         200
  126.         0
  127.         32768
  128.     [algn]
  129.         1
  130.         2
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         17
  136.         204
  137.         2
  138.         0
  139.         0
  140.         2
  141.         100
  142.     [brk]
  143.         4
  144.     [line]
  145.         8
  146.         0
  147.         2
  148.         0
  149.         1
  150.         1
  151.         1
  152.         15
  153.         15
  154.         2
  155.     [spec]
  156.         0
  157.         2
  158.         
  159.         0
  160.         2
  161.         1
  162.         0
  163.         0
  164.         0
  165.         1
  166.     [nfmt]
  167.         280
  168.         1
  169.         2
  170.         .
  171.         ,
  172.         \
  173.     ▒│─╫▓▌2
  174.     0
  175.     0
  176. [l1]
  177.     0
  178. [pg]
  179.     1
  180.     55 0 12 1025 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  181. [edoc]
  182. <:#239,9071>Macro by <+!>Charlie Pappas & Mark Osborne<-!>
  183.  
  184. <:#239,9071>define IsOKToRun(menuname)    GetInfo(217, 24, %1);
  185.  
  186. <:#239,9071>declare isselect()
  187.  
  188. <:#239,9071>
  189.  
  190. @╠º▌╕╝«▌@<:#239,9071>function main()
  191.  
  192. <:#239,9071>if isselect() = 0
  193.  
  194. <:#239,9071>    exit function
  195.  
  196. <:#239,9071>endif
  197.  
  198. <:#239,9071>ignorekeyboard(2)
  199.  
  200. <:#262,9071>macfile = GetRunningMacroFile$() ' <:f200,QCourier,0,0,255>get the dos file name
  201.  
  202. <:#239,9071>globtot = GetGlobalVarCount()
  203.  
  204. <:#239,9071>menustat = "OFF"
  205.  
  206. <:#239,9071>if globtot <<<;> 0
  207.  
  208. <:#239,9071>    Dim globnames(globtot)
  209.  
  210. <:#239,9071>    GetGlobalVarNames(&globnames)
  211.  
  212. <:#262,9071>    for i = 1 to globtot ' <:f200,QCourier,0,0,255>find the global var
  213.  
  214. <:#239,9071>        if (globnames(i) = "FontUpStat")
  215.  
  216. <:#239,9071>            menustat = "ON"
  217.  
  218. <:#239,9071>            
  219.  
  220. <:#239,9071>        endif
  221.  
  222. <:#239,9071>    next 
  223.  
  224. <:#239,9071>EndIf
  225.  
  226. <:#239,9071>If menustat = "OFF"
  227.  
  228. <:#262,9071>    AllocGlobalVar("FontUpStat",1) ' <:f200,QCourier,0,0,255>first time played, add menus<:f>
  229.  
  230. <:#239,9071>    DeleteMenuItem(1,"ò╢ÄÜ(\036T\037╙)", "ò╢ÄÜègæσ")
  231.  
  232. <:#478,9071>    InsertMenuItem(1,"ò╢ÄÜ(\036T\037╙)", 12,"ò╢ÄÜègæσ", "{MacFile}!bigger()", "Increases the 
  233.         font     size by 2 points")
  234.  
  235. <:#239,9071>    
  236.  
  237. <:#239,9071>    SetGlobalVar("FontUpStat","ON")
  238.  
  239. <:#239,9071>Endif
  240.  
  241. <:#239,9071>
  242.  
  243. <:#262,9071>call bigger() ' <:f200,QCourier,0,0,255>make call to make the font bigger
  244.  
  245. <:#239,9071>
  246.  
  247. <:#239,9071>end function
  248.  
  249. <:#239,9071>
  250.  
  251. <:#239,9071>
  252.  
  253. @╠º▌╕╝«▌@<:#239,9071>function bigger()
  254.  
  255. <:#239,9071>defstr name, color, size, family;
  256.  
  257. <:#239,9071>if isselect() = 0
  258.  
  259. <:#239,9071>    exit function
  260.  
  261. <:#239,9071>endif
  262.  
  263. <:#262,9071>GetCurFontInfo(&name, &color, &size, &family) ' <:f200,QCourier,0,0,255>what is the current font?<:f>
  264.  
  265. <:#262,9071>FontChange(Name, 0, Color, (Size  + 40)) ' <:f200,QCourier,0,0,255>add size to existing size
  266.  
  267. <:#239,9071>end function
  268.  
  269. <:#239,9071>
  270.  
  271. @╠º▌╕╝«▌@<:#239,9071>function isselect()
  272.  
  273. <:#239,9071>if IsOKToRun(FontChange) !=1
  274.  
  275. <:#239,9071>    message("î╗ì▌é▒é╠â}âNâìé═Ä└ìsé┼é½é▄é╣é±", "âtâHâôâgé╠ègæσ")
  276.  
  277. <:#239,9071>    return 0
  278.  
  279. <:#239,9071>endif
  280.  
  281. <:#239,9071>if CurShade$() = ""
  282.  
  283. <:#239,9071>    message("ò╢ÄÜé≡æIæ≡é╡é─é¡é╛é│éó", "âtâHâôâgé╠ègæσ")
  284.  
  285. <:#239,9071>    return 0
  286.  
  287. <:#239,9071>endif
  288.  
  289. <:#239,9071>return 1
  290.  
  291. @╠º▌╕╝«▌@<:#239,9071>end function
  292.  
  293. >
  294.  
  295. [Embedded]
  296. 00003678
  297. >
  298. [macsum] 3
  299. main 0 0 6 4
  300. bigger 567 0 5 35
  301. isselect 705 0 1 44
  302. [macse]
  303. 14 main
  304. 16 isselect
  305. 13
  306. 5 0
  307. 18 0
  308. 11 00000062
  309. 6 0
  310. 15
  311. 9
  312. 0 32 2
  313. 0 802
  314. 13
  315. 8 1
  316. 0 299
  317. 13
  318. 8 2
  319. 7 "OFF"
  320. 8 3
  321. 6 2
  322. 5 0
  323. 18 1
  324. 11 00000327
  325. 6 2
  326. 21 4 [X]
  327. 0 300 &4
  328. 5 1
  329. 8 5
  330. 6 2
  331. 6 5
  332. 18 2
  333. 12 00000255
  334. 10 00000327
  335. 5 1
  336. 6 5
  337. 3 0
  338. 8 5
  339. 10 00000180
  340. 6 5
  341. 22 4
  342. 7 "FontUpStat"
  343. 18 0
  344. 11 00000314
  345. 7 "ON"
  346. 8 3
  347. 10 00000222
  348. 6 3
  349. 7 "OFF"
  350. 18 0
  351. 11 00000544
  352. 0 271 "FontUpStat" 1
  353. 0 520 1 "ò╢ÄÜ(\036T\037╙)" "ò╢ÄÜègæσ"
  354. 0 527 1 "ò╢ÄÜ(\036T\037╙)" 12 "ò╢ÄÜègæσ" "{1}!bigger()" "Increases the         font     size by 2 points"
  355. 0 264 "FontUpStat" "ON"
  356. 16 bigger
  357. 6 0
  358. 15
  359. 9
  360. 14 bigger
  361. 16 isselect
  362. 13
  363. 5 0
  364. 18 0
  365. 11 00000064
  366. 6 0
  367. 15
  368. 9
  369. 0 804 &1 &2 &3 &4
  370. 6 3
  371. 5 40
  372. 3 0
  373. 2 251 1 "{1}" 0 "{2}" [X]
  374. 6 0
  375. 15
  376. 9
  377. 14 isselect
  378. 0 1313 217 24 251
  379. 13
  380. 5 1
  381. 18 1
  382. 11 00000127
  383. 0 3 "î╗ì▌é▒é╠â}âNâìé═Ä└ìsé┼é½é▄é╣é±" "âtâHâôâgé╠ègæσ"
  384. 5 0
  385. 15
  386. 9
  387. 0 24
  388. 13
  389. 7 ""
  390. 18 0
  391. 11 00000221
  392. 0 3 "ò╢ÄÜé≡æIæ≡é╡é─é¡é╛é│éó" "âtâHâôâgé╠ègæσ"
  393. 5 0
  394. 15
  395. 9
  396. 5 1
  397. 15
  398. 9
  399. 6 0
  400. 15
  401. 9
  402. 00003703
  403.